home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / samples.zip / COUNT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-25  |  1KB  |  50 lines
  1. {--------------------------------------}
  2. { For-Next Looping Demonstration(s) !! }
  3. { Desc: Count to a Number, then Exit   }
  4. { Written by Mike Schreckengost in TP! }
  5. {--------------------------------------}
  6.  
  7. Program For_Next_Looping;
  8.  
  9. Var      End_Of_Loop:Integer;
  10.          Count_Loop:Integer;
  11.  
  12. Procedure Input_Required_Data;
  13. Begin
  14.          Repeat;
  15.    Clrscr;
  16.    Gotoxy(1,1);
  17.    Textcolor(1);
  18.       Write('Enter Number to Count to --> ');
  19.    Textcolor(7);
  20.       Readln(End_Of_Loop);
  21.          Until End_Of_Loop>0;
  22. End;
  23.  
  24. Procedure Print_Legal_Data;
  25. Begin
  26.    Textcolor(2);
  27.       Writeln;
  28.       Writeln('Counting ... Please Wait ...');
  29.       Writeln;
  30.    Textcolor(7);
  31.       For Count_Loop:=1 to End_Of_Loop Do
  32.       Writeln(Count_Loop);
  33.       Count_Loop:=Count_Loop+1;
  34. End;
  35.  
  36. Procedure End_Program;
  37. Begin
  38.    Textcolor(12);
  39.       Writeln;
  40.       Writeln('All Done Counting !!!');
  41.    Textcolor(7);
  42.       End_Of_Loop:=0
  43. End;
  44.  
  45. Begin
  46.    Input_Required_Data;
  47.    Print_Legal_Data;
  48.    End_Program;
  49. End.
  50.